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BASIC 


[WM Lo instrucción 
ON-GOTO 


ODEMOS conseguir 
también transferen- 
cias de control condi- 
cionales múltiples 
mediante la instruc- 
ción ON-GOTO, cuyo 
formato es el siguiente: 


ON <expresión> 
GOTO número de línea, número de lí- 
nea,... donde expresión es una variable 
numérica o una expresión aritmética. 

Al encontrar está instrucción el ordena- 
dor evalúa la expresión y dirige el con- 
trol a una línea u otra. 

Por ejemplo: 


50 ON DATO GOTO 200,400,600 


— Si DATO=1... El control pasa a la lí- 
nea 200 

— Si DATO=2... El control pasa a la lí- 
nea 400 

— Si DATO=3... El control pasa a la lí- 
nea 600 


Por tanto, el efecto de la línea 50 es 
igual al que producirian la tres lineas si- 
guientes: 


50 IFDATO=1 THEN GOTO 200 
60 IF DATO=2 THEN GOTO 400 
70 IF DATO=3 THEN GOTO 600 


Si la expresión no fuese un número en- 
tero, el ordenador lo truncaría, tomando 
la parte entera. Además, si el valor de la 
expresión fuese cero o mayor que el nú- 
mero de líneas especificadas, el control 
pasaría al primer número de línea indi- 
cado, aunque en algunos ordenadores 
la ejecución continuaría por la línea si- 
guiente a la de ta instrucción ON-GOTO. 

El SPECTRUM es el único ordenador que 
no dispone de ON-GOTO; sin embargo, 
admite el siguiente formato para GOTO: 


GOTO <expresión> 


con lo cual el ejemplo anterior podría- 
mos escribirlo así: 


50 GOTO DATO"200 


de modo que según DATO valga 1, 2, 3, 
etcétera, el control pasará a la línea 200, 
400, 600, etc., respectivamente. 

Veamos un ejemplo concreto. El pro- 
grama permite calcular la cantidad 
exacta de dólares, libras esterlinas, fran- 
cos franceses o marcos alemanes que 
obtendremos al cambiar por la cantidad 
deseada en pesetas. 


REM FREIRE ERE AA 
REM * CAMBIO DE DIVISAS 
REM xr rrrrrrrrlrrrrrrrrkse 
LS 
LET CDU=130:LET CLE=205:LET CFF=21:LET CMA=7?0 
PRINT TABC12);"CAMBIO DE DIVISAR" 
PRINT TABC(12>3;" 
PRINT ¿PRINT 
PRINT TAB(10>;"1.- DOLARES USA" 
PRINT TABC10);"2.- LIBRAS ESTERLINAS" 
PRINT TABC10);"3.-— FRÁNCOS FRANCESES" 
PRINT TABC10>,"9.-— MARCOS ALEMÁNES” 
PRINT ¿PRINT :¿PRINT 
INPUT "PULSA LA OPCION DESEADA ";¡R 
IF R<1 OR R>9 THEN GOTO 140 


PRINT :¿PRINT 
130 CLS 
200 PRINT :PRINT 


300 REM * DOLARES USA * 
310 LET DU=P-CDU 


330 PRINT ¿PRINT 
PRINT "DOLARES USA: " 


410 LET LE=P/CLE 


430 PRINT :PRINT 


510 LET FF=P/CFF 
530 PRINT :¿PRINT 


END 
REM * MARCOS ALEMANES * 
$610 LET MA=P/CMA 


£30 PRINT :¿PRINT 


En la línea 50 establecemos las cotiza- 
ciones de cambio de las cuatro mone- 
das. De las líneas 70 a 170 se desarrolla 
una presentación en pantalla ordenada 
que nos permite seleccionar la opción 
de cambio (línea 140) e introducir la can- 


tidad que deseamos cambiar (línea 
170). El aspecto de la pantalla será algo 
similar al reproducido en la figura 6. 


Se 
5 ESTERLINAS 
Eat 


Rm ICESES 
en MARCOS ALEMANES 


PULSA Le JPCI DES Ende 2 


TECLEE EL IMPORTE QUE DESEA CHIBIAR (PESET=S(. > 


Presentación en pantalla del programa an- 
terior. 


En la línea 210 se transfiere el control a 
la línea correspondiente, según la opción 
elegida, donde se calcula el cambio y se 


170 INPUT "TECLEE EL IMPORTE QUE DESEA CAMBIAR (PESETAS) ";¡P 
190 PRINT "PESETAS:";¡TABC(20)>;¡P 
Z10 ON R GOTO 300,400,500,400 


320 PRINT "CAMBIO: ";TAB(Z20> CDU 
¡TAB(20) ¡DU 
REM * LIBRAS ESTERLINAS * 
4920 PRINT "CAMBIO: "¡¿TABC20)>;CLE 

PRINT "LIBRAS ESTERLINAS: " ¡TABC20) 5 LE 
pa * FRANCOS FRANCESES * 
520 PRINT "CAMBIO:"¡TABC20>;¡CFF 

PRINT "FRÁNCOS FRANCESES: ";TABC20);FF 


$20 PRINT "CAMBIO: ";¡TABC20> ¿CMA 


PRINT "MARCOS ALEMANES: "¿TABCZ20) ¡MÁ 


imprimen los resultados. En la figura si- 
guiente podemos ver la presentación fi- 
nal en pantalla tras una posible ejecu- 
ción. 


PESETAS: 


CAMBIO: 


LIBRAS ESTEPLIm2:  121.9512 
“Ju 


A - pe 
lA Aspecto de la pantalla tras una posible eje- 
cución del programa. 


Las presentaciones en pantalla están 
pensadas para un ordenador de 40 co- 
lumnas, por tanto, si disponemos de una 
pantalla de 32 columnas como la del 
SPECTRUM, tendremos que cambiar todos 
los TAB(10) que aparecen por TAB(5) (y 
los TAB(12) por TAB(7)), así como sustituir 
la instrucción ON-GOTO de la línea 210 
por: 

210 GOTO R*100+200 


. BASIC 


También tendremos que cambiar todos 
los END por STOP. 


O Los bucles white-wend 


Ya hemos visto cómo podemos formar 
bucles condicionales combinando ade- 
cuadamente las instrucciones IF-THEN y 
GOTO. Sin embargo, algunos ordenado- 
res como el AMSTRAD, el IBM o los MSX, 
disponen de una estructura específica 
para estos bucles denominada abrevia- 
damente WHILE-WEND. 

A grandes rasgos, podemos hacer las 
siguientes identificaciones: 


WHILE - marca el comienzo del bucle. 
WEND - marca el final del bucle. 


Entre una instrucción WHILE y una ins- 
trucción WEND debemos situar todas las 
instrucciones que deseemos que se repi- 
tan y que formarán el cuerpo del bucle. 

En la figura 3 podemos ver un esquema 
del formato general de estos bucles. 


WHILE <condición > 


CUERPO 


É Esquema de bucles WHILE-WEND. 


La condición situada tras la instrucción 
WHILE puede ser de cualquiera de los ti- 
pos ya estudiados. 

El funcionamiento de estos bucles es el 
siguiente: mientras se cumpla la condi- 
ción de WHILE, se repetirán todas las ins- 
trucciones que haya hasta la instrucción 
WEND. Antes de que se repita el bucle, el 
ordenador comprueba si la condición si- 
gue verificándose. En caso afirmativo, el 
bucle se ejecutará de nuevo, mientras 
que si la condición ya no es cierta, la eje- 
cución pasará a la línea de programa 
posterior al WEND, si la hay, y si no el pro- 
grama finalizará. 

El programa 2 utiliza dos bucles WHILE- 
WEND para trazar una cruz en el centro 
de la pantalla. 

El primer bucle WHILE-WEND es el encar- 


O REM rrrerrrrrrx 
20 REM * CRÚZ + 
30 REM r*rrrrrrss 
40 CLS 


50 LET C=1 
$0 WHILE C<=40 
0 LOCATE 11,C:PRINT *"0* 


50 LET C=C+1 
0 LIEND 
100 LET F=1 
110 WHILE F<=22 
120 LOCATE F,20:PRINT "0" 
130 LET F=F+1 
O WEND 


gado de que se imprima en pantalla la lí- 
nea horizontal, formada por oes (O) que 
se van imprimiendo una a una en la fila 
11, desde la columna 1 hasta la 40. Esto 
se consigue con un contador que se in- 
crementa en la línea 80 y que tiene 
como valor límite 40, gracias a la condi- 
ción del WHILE (línea 60). 

Análogamente el segundo bucle WHI- 
LE-WEND tiene por objeto imprimir la línea 
vertical en la columna 20 de la pantalla. 

En la figura podemos ver el aspecto 
de la pantalla tras la ejecución. 


Presentación en pantalla del programa 2. 


Para que este programa funcione 
correctamente en el AMSTRAD debemos 
invertir el orden de los parámetros en los 
LOCATE de las líneas 70 y 120. 

Por otra parte, puesto que los bucles 
WAHILE-WEND no existen en el SPECTRUM ni 
en el COMMODORE, no podríamos ejecu- 
tar este programa en ninguno de los dos 
ordenadores. De todos modos, un bucle 
WHILE-WEND siempre puede sustituirse por 
un bucle formado por IF-THEN y GOTO. 


Me manipulaciones 


con datos 


A hemos tratado de 
una forma general las 
posibles operaciones 
con fragmentos de 16 
y de 8 bits; sin embar- 
go, hay numerosas 
ocasiones en que es 
necesario realizar 


MAQUINA 2-80 


SPECTRUM, AMSTRAD, MSX 


operaciones sobre un único bit, aunque 
este este contenido en una posición de 
memoria de 8 bits, o en un registro. 


Esto se hace aún más evidente en el 
caso del registro de flags, en el que cada 
bit indica una información completa- 
mente diferente. En la tabla adjunta pue- 
de verse un resumen de cómo se ven 
afectados estos flags (o indicadores) por 
las distintas instrucciones del Z-80. 


Resumen de los indicadores afectados 


ADD A,s; ADC A,s 
SUB s; SBC A,s; CP s; NEG 


.. e. 


.. 01m. q 0... .. 
... 000. .. 4... .. .. .. 
AAA AA >= 
VOQO0XAAX--Oo —- 
AKAXAXAIAXXX A > 
Yo E :¿LEOO << 
co0o-00-000o 
e. +... -... O O 


INI; IND; OUTI; OUTD 
INIR; INDR; OTIR; OTDR 
LDI; LDD 

LDIR; LDDR 

CPI; CPIR; CPD; CPDR 


Na 


== O 0- -000-». O 


.L.... .. .....- 0.0. 


+ O --< XA TDOeEOODM 


e 
1 1 
. . 
. . 
. . 
E 
x 1 
x 1 
Xx X 
Xx X 
E 


Y 


Oo 00Xxx0x0-mw».0o 
A AA AX AIN 


LD A,l; LD A,R 


o 
. 


cador P/V. 


A A AX ANI 


BIT b,s 


o 
. 


Además de la posibilidad de modificar 
determinados bits utilizando operacio- 
nes lógicas, el Z-80 dispone de instruc- 
ciones especializadas en manipulación 
de bits de forma individual. De ellas ha- 
blaremos en este apartado. 

— El primer tipo de instrucciones son 
del tipo BIT b,a. Estas sirven para compro- 


Suma o suma con arrastre de 8 bits. 
Resta o resta con arrastre de 8 bits. Comparación. Cambio de signo del 
acumulador. 


Operaciones lógicas. 


Incremento para 8 bits. 
Disminución para 8 bits. 
Suma de 16 bits. 

Suma con arrastre de 16 bits. 
Resta con arrastre de 16 bits. 
Rotación del acumulador. 
Rotaciones y desplazamientos 


Rotación de las cifras decimales a la izquierda y a la derecha 
Ajuste decimal del acumulador 

Complemento del acumulador 

Puesta a 1 del indicador de arrastre 

Complemento del indicador de arrastre 

Entrada de un registro 


Entrada y salida de bloques. Z a O si Bx0; Z a 1 en caso contrario. 
Transferencia de bloques. P/V a 1 si BCx0; P/V a O en caso contrario. 


Búsqueda en bloques. Z a 1 ai A=(HL); Z a 0 en caso contrario. P/V a 1 si 
BCx0; P/V a0 en caso contrario. 
El contenido de la báscula de habilitación de interrupciones se carga en el indi- 


El bit b del registro o posición s se carga en el indicador Z. 


bar el valor de un bit de alguna palabra 
de 8 bits. En estas instrucciones b es un 
número del 0 al 7 que indica cuál es el 
bit a muestrear, y aindica dónde se en- 
cuentra ese bit (un registro, una posición 
de memoria, mediante indirección, etc.). 
La forma de operar de esta instrucción es 
la siguiente: 


e MAQUINA 2-80 


Pone en el flag (indicador) Z el valor 
del bit a considerar. 

El valor en Z se suele utilizar para una 
condición de salta (por ejemplo, si Z=0 — 
JPZ,e) (de esta posibilidad se tratará en 
apartados posteriores). 

Así, con esta instrucción podemos tras- 
ladar a Z cualquier bit, y utilizarlo luego 
como condición para un salto condicio- 
nal. 


— El segundo tipo de instrucciones es 
de la forma: 


SET b,a 


Sirven para poner a 1 el bit número b 
del byte contenido en a. El byte «a» pue- 
de estar indicado con los tipos de direc- 
cionamiento que pueden observarse en 
la siguiente tabla-resumen. 


Grupo de manipulación de bits 


Código ao” 
mnemoutécnico s2 
BIT b,r 
BIT b,(HL) DARK UR 


BRIT b,(1X + d) X31X1X 


BIT b,(1Y +d)o 


SET b,r 
SET b,(HL) 
SET b,(1X +d) 


SET b,(1Y +d) 


mp» 0 
mer, (HL),(1X +d),(1Y +d) 


NOTA: mp representa el bit b (0 a 7) del registro o la posi- 
ción m. 


Evidentemente, b es un número del 0 al 
7, para indicar cuál es el bit que poner 
a 1 


— El último tipo de instrucciones es de 
la forma: Res b,a. 

Esta instrucción realiza la operación 
opuesta, es decir, pone a cero el bit b 
del byte indicado por a. 

Las funciones de b y a son similares a 
las de la instrucción anterior. 


'O Programas de ejemplo 


Hasta aquí hemos explicado ya las su- 
ficientes instrucciones del ensamblador 


XxX 0 


P/Y NC 


XXIX X 009 


X 0. 


] ll 


UIT 
11 001 011 CB 
01 b 110 
11 011 101 DD 
11 001 011 CB 
del Z-80 como para atrevernos a hacer 
una primera incursión en la programa- 
ción en lenguaje máquina. 

Vamos a realizar un primer programa 
que realice la media aritmética de dos 
números de 8 bits. 


LS 


114 111 101 FD 
11 001 011 CB 


JR RW O el zz 
Y 
E 


11 001 011 CB 


A 
11 001 011 CB 
b 110 
11 011 101 DD 
11 00: 011 CB 
—i- 
Ti b 110 
11 111 101 FD 
11 001 612 CB 


Fijemos el algoritmo a utilizar: 


Operando A + Operando D 


Resultado = > 


2.2 A continuación realicemos un pe- 
queño organigrama para fijar ideas: 


En la programación en lenguaje máqui- 
na debemos desmenuzar las operacio- 
nes hasta que seamos capaces de intuir 
claramente cómo sustituir cada paso por 
una o varias instrucciones. Dependiendo 
de la capacidad y sobre todo de la ex- 
periencia del programador, estos blo- 
ques serán más o menos detallados. 

3.2 Realicemos el programa en en- 
samblador. 


PROGRAMA DE MEDIA ARITMETICA 
FORMULA ¿ M= ( DA + DB ) / 2 


(u Programa: 


Preposiciones 
inglesas 


L programa de PREPO- 
SICIONES INGLESAS 
que vamos a ver a 
continuación nos va 
a permitir repasar 
nuestros conocimien- 
tos sobre las mismas. 

Las preposiciones 
que el programa nos permite repasar son 
las que aparecen en la figura 1. 


DER LAS PREPOS [CIONES INOLESAS . 
sE Or hLiZAn Lo LaS "STODIENTES. 


ELE 


| PULSA ENTER 


l A | Lista de preposiciones que utiliza el progra- 
ma. 


La forma del programa no es la que 
suelen tener los programas educativos. 
En este caso, como el usuario suele ser 
un niño, se ha intentado que la parte grá- 
fica sea muy llamativa para no aburrir al 
usuario. 

Lo único que hace falta para ver la ca- 
lidad del programa es ver las pantallas 
que aparecen del mismo en plena eje- 
cución. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


[A | Segunda escena. Joe se asoma por la ven- 
tana. 


LA Tercera escena. La pelota cae por las es- 
caleras. 


No es necesario dar ninguna instrucción de uso, ya que las pocas que se necesi- 
tan aparecen por pantalla. 


1000 REM deddlSISlS ARSS IEA lARJSSJSISIOJSJSlSJ EEE TSlOJOIOJOK: 


1010 REM * xk 
1020 REM x PREPOSICIONES INGLESAS k 
1030 REM x*x k 
1040 REM * Por: Peter Bergmann k 
1050 REM x : k 
1060 REM dRaSa SIS IElO SOS SOS dok 
1070 REM * k 
1080 REM * VARIABLES * 
1090 REM * —-—-»-»-.-..-- —====----- k 
1100 REM * U$ - ARRAY DE RESPUESTAS k 
1110 REM * L$ - ARRAY DE RESULTADOS k 
1120 REM* B$ - COMIENZO DE FASE k 
1130 REM * E$ - FIN DE FASE k 
1140 REM* P$ - PREPOSICION CORRECTA k 
1150 REM * T$,0$ - PREPOSICIONES FALSAS k 
1160 REM *x T - NUMERO DE PANTALLA k 
1170 REM * N - "NUM. DE FASES EN PANT. * 
1180 REM * ND - NUM. DE FRASES. FIN P. *x 
1190 REM * A$ - RESPUESTA (1-3) k 
1200 REM * A - RESPUESTA (1-3) xk 
1210 REM * R$ - RESPUESTA (S/N) k 
1220 REM* C$ - RESPUESTA (CONTINUAR)  *x 
1230 REM * X$ - FLAG PARA CONTINU k 
1240 REM * RN - NUMERO ALEATORIO k 
1250 REM *x W - RESPUESTA CORRECTA + 
1260 REM * HZ - FRECUENCIA DE SONIDO k 
1270 REM * I,J - CONTADORES k 
1280 REM * NC -— NUMERO CORRECTO k 
1290 REM * NF - NUMERO FALSO "k 
1300 REM * PC -— PERCENTAJE CORRECTO xk 
1310 REM * PF -— PERCENTAJE FALSO k 
1320 REM x k 
1330 REM ASS SES SjSl”O SIS l”S OOOO laloIOJOK 
1340 REM 

1350 REM **x*x CABECERA *xx 

1360 REM 

1370 CLS 

1380 KEY OFF 


1390 PRINT STRING$(40, "x") 

1400 FOR I = 1 TO 19 

1410 PRINT"-“E*; TAB(40); "*x" 

1420 NEXT I 

1430 PRINT STRING$(40, "x") 

1440 LOCATE 8,10: PRINT "ENGLISH PREPOSITIONS" 
1450 LOCATE 9,9: PRINT "--==-======--=-=-===-- hi 
1460 LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 
1470 FOR I = 1 TO 1000 

1480 NEXT I 

1490 REM: 

1500 REM **x* DECLARACION DE ARRAYS x*xxk 

1510 REM 

1520 DIM U$(35) 

1530 DIM L(4,2) 

1540 REM 

1550 REM AsaalSSS ISSO OOOO ISSO IOIOJOJOJOK 

1560 REM * PROGRAMA PRINCIPAL x 

1570 REM doo lTSlSlTSlSlOlSlOlOlalalOjOIOJOJOK 

1580 REM 

1590 CLS 

1600 LET- X$ = "C" 

1610 GOSUB 1710 


% PROGRAMAS 


1620 GOSUB 2080 


1630 IF X$ = "C" THEN GOSUB 2300 
1640 IF X$ = "C" THEN GOSUB 2570 
1650 IF X$ = "C" THEN GOSUB 2770 
1660 GOSUB 4080 

1670 CLS 

1680 PRINT "ADIOS..." 

1690 KEY ON 

1700 END 

1710 REM 


1720 REM Ad+ooSSRSO SOS jOOEjO kk 


1730 REM * INTRODUCCION * 
1740 REM AsaSSSSlOIS OOOO OJOKK 


1750 REM  , 

1760 CLS 

1770 PRINT " ESTE PROGRAMA NOS PERMITIRA APREN-" 
1780 PRINT " DER LAS PREPOSICIONES INGLESAS. " 

1790 PRINT 

1800 PRINT " LA LISTA DE LAS PREPOSICIONES QUE” 


1810 PRINT " SE UTILIZAN SON LAS SIGUIENTES: " 
1820 PRINT :PRINT 


1830 PRINT "IN OUT ON OFF 
1840 PRINT "OVER UNDER FOR TO si 
1850 PRINT "WITH THROUGH BEFORE AFTER" 
1860 PRINT "UP DOWN FROM AT” 
1870 PRINT "INTO ONTO NEAR FAR 
1880 PRINT "WITHOUT BETWEEN BESIDE OF 
1890 PRINT "DURING ABOVE BELOW UNTIL" 
1900 PRINT "BY BEHIND IN FRONT OF 


1910 PRINT :PRINT 

1920 PRINT "PULSA ENTER" 

1930 C$ = INPUT$(1) 

1940 RETURN 

1950 REM 

1960 REM **x* DECLARACION DE ARRAYS x*x*x 

1970 REM 

1980 FOR I = 1 TO 35 

1990 LET U$(I) = "0" 

2000 NEXT I 

2010 IF T <> 1 THEN GOTO 2070 

2020 FOR I = 1 TO 4 

2030 FOR J = 1 TO 2 

2040 LET L(1,J) = 0 

2050 NEXT J 

,2060 NEXT I 

2070 RETURN 

2080 REM 

2090 REMO dao oooO OSOS OSOS OSOS JOJOk 
2100 REM * CONOCIENDO EL JOE”S BAR AND GRILL *X 

2110 REM AdoaSdSRS SO SS ESSE OSOS OSOS OSO OOOO OOOO OJOK 
2120 REM 

2130 CLS 

2140 WIDTH 40 

2150 PRINT * PANTALLA 1 - JOE*S BAR AND GRILL y 
LEONI A A o a e A y 
2170 PRINT 

2180 PRINT ” BENVENIDO A ”JOE”S BAR AND GRILL”! " 
2190 PRINT " ESTE BAR ESTA EN NUEVA YORK CERCA DE ” 
2200 PRINT " MANHATTAN. MIRA A *JOE”S” Y TERMINA  ” 
2210 PRINT " LAS FRASES. E 
2220 PRINT :PRINT 

2230 PRINT "PULSA ENTER" 

2240 C$ = INPUT$(1) 

2250 CLS 

2260 LET T 1 

2270 LET N 31 

2280 GOSUB 2980 

2290 RETURN 


2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 


2690, 


2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


REM 

REM ASSRSSS OSOS OOOO JOk 

REM * CONOCIENDO A JOE *x 

REM ASSSoS SOS SS SOS OESjOOIO OK 

REM 

CLS 

WIDTH 40 

PRINT " PANTALLA 2 - JOE 

IN a e a a 

PRINT 

PRINT " AHORA, TE ENCUENTRAS A JOE. JOE ES " 
PRINT " MUY TIMIDO. EL NUNCA SALE DE CASA. EL" 
PRINT " VIVE SOLO, Y USUALMENTE SOLO HABLA 
PRINT " CON SU GATO. PERO JOE SIEMPRE TIENE 
PRINT " COMIDA PARA LA GENTE. EL BAR ESTA ABI" 
PRINT " ERTO DESDE LA 1 PM HASTA LA 1 AM. HAY" 
PRINT " MUCHA GENTE EN JOE*S POR LA TARDE A 
PRINT " LA HORA DE COMER. 

PRENT. ”. MIRA A JOE Y TERMINA LAS FRASES. 
PRINT :PRINT 

PRINT "PULSA ENTER” 

C$ = INPUT$(1) 


CLS 

LET T=2 

LET N = 15 

GOSUB 2980 

RETURN 

REM 

REM SOS IO Olla jojo kok 


REM * CONOCIENDO EL BALON DE JOE * 

REM AaSSSSO Saad OE la Kakok 

REM 

CLS 

WIDTH 40 

PRINT " PANTALLA 3 - EL BALON DE JOE 
PRINT O or nnotooo 
PRINT 

PRINT " JOE TIENE UN BALON. FIJATE EN EL 
PRINT " Y TERMINA LAS FRASES. 

PRINT :PRINT 

PRINT "PULSA ENTER" 

C$ = INPUT$(1) 


CLS 

LET T=3 

LET N = 16 

GOSUB 2980 

RETURN 

RE 

REM SMS SO SOS lOlOldlOloloJoJor 


REM * EL GATO DE JOE * 

REM ASS AMO O 

REM 

CLS 

WIDTH 40 

PRINT-" PANTALLA 4 - EL GATO DE JOE 
PRINT". Ene AS A 
PRINT 

PRINT ” JOE TAMBIEN TIENE UN GATO. FIJATE " 
PRINT " LO UQE HACE Y TERMINA LAS FRASES. 
PRINT :PRINT 

PRINT "PULSA ENTER” 

C$ = INPUT$(1) 


CLS 

LET T=4 
LET N = 13 
GOSUB 2980 
RETURN 


REM 


PROGRAMAS 


2980 REM Ada 4 SOS IO IIS K Ak 
2990 REM * RUTINA DE CREACION DE FRASES * 
3000 REM MMS SIS SSIO ISSO OOOO IOIOIOOJOK 
3010 REM 

3020 RANDOMIZE TIMER 

3030 GOSUB 1950 

3040 GOSUB 4340 

3050 LET ND = O 

3060 IF ND < N THEN GOSUB 3230 ELSE GOTO 3160 
3070 ND = ND + 1 

3080 GOSUB 3380 

3090 GOSUB 3670 

3100 LOCATE 23,10: PRINT "(QUIERES OTRA (S/N)"; 
3110 INPUT R$ 

3120 IF R$ = "S" THEN GOTO 3060 

3130 IF R$ <> "N" THEN GOTO 3100 

3140 GOSUB 3960 

3150 IF T = 4 THEN GOTO 3210 

3160 LOCATE 23,10: PRINT "(QUIERES VER OTRA SITUACION (S/N)"; 
3170 INPUT R$ 

3180 IF R$ = "S" THEN RETURN 

3190 IF R$ <> "N" THEN GOTO 3160 

3200 LET X$ = "S" 

3210 RETURN 

3220 REM 

3230 REM ASSSOSOSO OOO OOO odo kk 

3240 REM * BUSCAR FRASES * 

3250 REM ASS lOOlOjOOjOlOlOjOKOK 


3260 REM 

3270 IF T = 1 THEN RESTORE 6360 
3280 IF T = 2 THEN RESTORE 6700 
3290 IF T = 3 THEN RESTORE 6880 
3300 IF T = 4 THEN RESTORE 7050 
3310 RN = INT(RNDXN) + 1 


3320 IF U$(RN) <> "0" THEN GOTO 3310 

3330 FOR I = 1 TO RN 

3340 READ B$,E$,PS$, T$,0$ 

3350 NEXT I 

3360 RETURN 

3370 REM 

3380 REM AdSRSSRSSO OSOS OSOS OSOS SOS OSOS OOOO IOIOOJOK 
3390 REM * IMPRIMIR FRASE Y LEER RESPUESTA * 
3400 REM AaAsSRaSRSS SOS SES OSOS OSOS ESjo SOS EIO ESOO k ak 
3410 REM 

3420 ON KEY(1) GOSUB 6140 

3430 KEY(1) OFF 

3440 SCREEN O 

3450 CLS5 

3460 WIDTH 80 

3470 W = INT(RND*x3) + 1 

3480 LOCATE 11,10: PRINT B$;"__ 
3490 LOCATE 13,35: PRINT "1. "; 
3500 IF W = 1 THEN PRINT P$ ELSE PRINT T$ 

3510 LOCATE 14,35: PRINT "2. "; 

3520 IF W = 2 THEN PRINT P$: GOTO 3540 

3530 IF W = 1 THEN PRINT T$ ELSE PRINT 0$ 

3540 LOCATE 15,35: PRINT "3. "; 

3550 IF W = 3 THEN PRINT P$ ELSE PRINT O0$ 

3560 LOCATE 20,25: PRINT "(TU RESPUESTA (1-3)?"; 

3570 LOCATE 23,2: PRINT "PULSA *F1* PARA VER PANTALLA" 
3580 KEY(1) ON 

3590 A$ = INKEY$: IF A$ = "" THEN GOTO 3590 

3600 KEY(1) OFF 

3610 IF LEN(A$) > 1 THEN GOTO 3580 

3620 IF (ASC(A$) < 49) OR (ASC(A$) > 51) THEN GOTO 3580 
3630 A = VAL(A$) 

3640 LET US(RN) = "X"” 

3650 RETURN 


';ES 


— — , 


3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 


3860. 


3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 


REM 
REM sSS MOSS SISSI IOJSOIOIOJOJOJOK 


REM * CHEQUEAR RESPUESTA * 


REM SMS OSOS OSOS SS lSIOJOlOIOJOK 
REM 

CLS 

IF W = A THEN GOTO 3750 


LOCATE 4,36: PRINT "FALSO!" 
SOUND 150, 15 
LOCATE 8,10: PRINT "LA RESPUESTA CORRECTA ES:"; 
LOCATE 13,352, PRINT "1. "; 
IF W = 1 THEN PRINT P$ ELSE PRINT T$ 
LOCATE 14,35: PRINT "2. "; 
IF W = 2 THEN PRINT P$: GOTO 3810 
IF W = 1 THEN PRINT T$ ELSE PRINT 0$ 
LOCATE (15), 39% 'PRINT "3. ”; 
IF W = 3 THEN PRINT P$ ELSE PRINT O$ 
LOCATE 18,10: PRINT B$;P$;E$ 
FOR I = 1 TO 4 
IF W = A THEN LOCATE 4,30: PRINT ” 
LOCATE 12+W,33: PRINT " 
IF W = A THEN SOUND 1000, 6 
FOR J = 1 TO 400: NEXT J 
IF W = A THEN LOCATE 4,30: PRINT "-CORRECTO!" 
LOCATE 12+W,38: PRINT P$ 
FOR J = 1 TO 400: NEXT J 
NEXT I 
IF W = A THEN LET U$(RN) = "C" 
RETURN 
REM 
REM ARSS SOS OSOS OSOS SOS lOIOIO OK 
REM * TOTAL ACIERTOS POR SECCION * 
REM ASS SS SOS SOS SOS OOOO OOJOKOJOK 
REM 
LET NC = 0 
FOR I= 1 TON 


IF U$(1) = "C"” THEN NC = NC + 1 
NEXT I 
LET L(T,1) = ND 
LET L(T,2) = NC 
RETURN 
REM 
REM SS SS IO OSOS SOS SISSI ISSO JSIOIOKOK 


REM * IMPRIMIR RESULTADOS FINALES * 
IAN EEE TEE 
REM 
CLS 
WIDTH 40 
LOCATE 2,12: PRINT "RESULTADOS FINALES" 
LOCATI- Sy Li? BRINT y 
LOCATE 5,1: PRINT "SEC. NUM. NUM. NUM. % % Ñ 
LOCATE 6,1: PRINT "NUM. TOT. COR. FAL. COR. DALI 
IU TALE a. e: is o > ce ME 2% 
FOR I = 1 TO 4 
LET ND = L(I,1) 
LET NC = L(I,2) 
NF = ND - NC 
IF ND = O THEN LET PC = O: LET PF = 0: GOTO 4260 
PC = (NC/ND)*x100 
PF = (NF/ND)x100 
LOCATE 7+1,2: PRINT USING "+*+$ ";I;ND;NC;NF 
LOCATE 7+1,25: PRINT USING "+*$8$.$$ ";PC;PF 
LOCATE 7+1,31: PRINT "X": LOCATE 7+1,39: PRINT "%" 
NEXT 1 
LOCATE 20,2: PRINT "PULSA ENTER" 
C$ = INPUT$(1) 
RETURN 
REM 


MM 
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4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 


REM ROSSO lOlolOjOK 
REM * DIBUJOS x* 
REM SMS OO ojololok 
REM 
CLS 
SCREEN 1 
GOSUB 4570 
GOSUB 4850 
GOSUB 4940 
GOSUB 5020 
GOSUB 5380 
GOSUB 5530 
IF 3 THEN GOSUB 5090 
IF + 3 THEN GOSUB 5590 
IF 4 THEN GOSUB 5770 
IF 2 THEN GOSUB 5990 
C$ INPUT$(1) 
SCREEN O 
WIDTH 80 
RETURN 
REM 
REM *** DIBUJAR ESCALERAS *xx 
REM 
LOCATE 14,15: PRINT CHR$(203); 
FOR 1 = 1 TO 10 
PRINT CHR$(205); 
NEXT I 
PRINT CHR$(203) 
FOR J = 15 TO 26 STEP 11 

FOR I = 15 TO 23 

LOCATE 1,J: PRINT CHR$(186) 

NEXT I 
NEXT J 
FOR I=0 


193333 


TO 8 STEP 2 


4680 
4690 
4700 
4710 


LOCATE 
LOCATE 
LOCATE 
LOCATE 


14+1, 14-I: 
14+1,27+1: 
15+I, 14-1: 
15+1,27+1: 


CHR$(201) 
CHR$(187) 
CHR$(186) 
CHR$(186) 


4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 


NEXT I 

FOR I = 2 
LOCATE 
LOCATE 

NEXT 1 

CIRCLE (205,99), 7 

CIRCLE (120,102),7,3,5.6,3.7 

CIRCLE (127,95),4 

DRAW "BM125,92" 

DRAW "52 H2 BM129,92 E2" 

DRAW "BM112,101" 

DRAW "S4 H3 U6 R3 F2" 

RETURN 

REM 

REM **x* DIBUJAR PUERTA x*x*x* 

REM 

DRAW 

DRAW 


TO 8 STEP 2 
14+1,:10—I:5 
14+1,25+I: 


CHR$(205);CHR$(188) 
CHR$(200);CHR$(205) 


"BM141,105" 

"U6O R40 D6O" 

DRAW "BU40 BL5" 

DRAW "L30 U15 R30 D15 L15 Ul15 R15 D8 L30" 
CIRCLE (175,75),2 

RETURN 

REM 

REM *xx** DIBUJAR EDIFICIO x*xx 

REM 
DRAW 
DRAW 


"BMO, 0" 

"D184 R319 Ul84 L319" 
DRAW "BM306, 184" 

DRAW "L6 M297,167 R18 M312,184" 
RETURN 


5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5350 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 


REM 

REM **x* DIBUJAR VENTANA *x*x 

REM 

DRAW "BM15,25" 

DRAW "D60 R102 USO L102 D24 R102 U24 L34 D60 L34 U60 L14" 
DRAW "M20,45 D40 BM15,25 R82 M112,45 D40" 


RETURN 

REM 

REM *x*x* DIBUJAR BALON x*xxk 
REM 

LET HZ = 1000 


FOR I = O TO 4 
CIRCLE (205+1*x18,99+1*x16), 7 
FOR J = 1 TO 400: NEXT J 
CIRCLE (205+1*x18,99+1x16),7,0 

SOUND HZ, 5 

HZ = HZ - 150 

NEXT I 

CIRCLE (288,177),7 

FOR J = 1 TO 100: NEXT J 

CIRCLE (288,177),7,0 

PLAY "T150 MB ML 03 L16 CDEFGAB” 

DRAW "BM288,177 C3 U40" 

CIRCLE (297,137),9,3,0,3.14 

DRAW "BM288,177 CO U4O" 

CIRCLE (297,137),9,0,0,3.14 

CIRCLE (306, 144),7 

PLAY "T90 MB ML 03 L16 BAGFEDC" 

FOR I = 1 TO 16 


CIRCLE (306,143+1),7,0 
CIRCLE (306, 144+1),7 
NEXT I 
CIRCLE (306,160),7,0 
SOUND 75,7 
FOR I = 1 TO 800: NEXT I 
RETURN 
REM 
REM *x*x* DIBUJAR CARTEL *x*x 
REM 
DRAW "BM200, 29” 


DRAW "D20 R86 U2O0 L86" 

LOCATE 5,27: PRINT "JOE'*S BAR" 
LOCATE 6,27: PRINT " 3% GRILL " 
DRAW "BM260, 70" 

DRAW "D44 R30 U44 L30” 

LOCATE 11,35: PRINT “P" 

CIRCLE (275,83),10 

DRAW "BM267,112" 

DRAW "R10O U16 F6 U2 H6 G6 D2 E6" 
CIRCLE (275,83),9 


RETURN 

REM 

REM *** DIBUJAR LAMPARA x*x*x 
REM 

CIRCLE (162,30),4,3,3.14,6.28 


DRAW "L4 E2 U2 R4 D2 F2 L6" 
RETURN 
REMx 
REM* BOUNCE BALL UP 
REMx* 
SOUND 1000, 1 
PLAY "T160 MB ML 03 L18 CDEFEDC" 
CIRCLE (291,166),14,3,0,3.14 
FOR I = 1 TO 90: NEXT I 
CIRCLE (291,166),14,0,0,3.14 
LET HZ = 250 
FOR 1 = 4 TO O STEP -1 

SOUND HZ, 5 
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5700 CIRCLE (205+1x18,99+1*x16), 7 

5710 FOR J = 1 TO 400: NEXT J 

5720 IF I = O THEN GOTO 5750 

5730 CIRCLE (205+1x18,99+1x16),7,0 

5740 HZ = HZ + 150 

5750 NEXT I 

5760 RETURN 

5770 REMx* 

5780 REM* DRAW KITTY 

5790 REMx* 

5800 FOR 1 = 1 TO 2000: NEXT 1 

5810 CIRCLE (120,102),7,0,5.86,3.7 

5820 CIRCLE (127,95),4,0 

5830 DRAW "BM125,92" 

5840 DRAW "CO S2 H2 BM129,92 E2" 

5850 DRAW "BM112,101" 

5860 DRAW "CO 34 H3 US R3 F2" 

5870 PLAY "T120 MB ML L18 04 BAGFEDC 03 BAGFEDC 02 BAGFEDC 01 BAGFDEC" 
5880 FOR I = 115 TO 177 STEP 2 

5890 CIRCLE (105+INT(1/5),1),7,1 

5900 CIRCLE (105+INT(1/5),1),7,0 

5910 NEXT 1 

5920 SOUND 37,15 

5930 DRAW "BM135,178" 

5940 DRAW "C3 U4 L2 BM145,178 U4 L2" 

5950 CIRCLE (140,183),7,3,0,3.14 

5960 CIRCLE (151,183),4,3,0,3.14 

5970 DRAW "BM133,183 H4 U7" 

5980 RETURN 

5990 REM 

6000 REM xxx DIBUJAR A JOE xxx 

6010 REM 

6020 CIRCLE (21,62),9,3,4.71,1.57 

6030 DRAW "BE5 H5 F14 H4 E4 H6 G4 El F6 El H6 El F6" 

6040 CIRCLE (23,58), 1 

6050 CIRCLE (26,62),1 

6060 DRAW "BM21,64 F2" 

6070 FOR I = 1 TO 1000: NEXT 1 

6080 CIRCLE (21,62),9,0,4.71,1.57 

6090 DRAW "CO BE5 H5 F14 H4 E4 H6 4 El F6 El H6 El F6”" 

6100 CIRCLE (23,58),1,0 

6110 CIRCLE (26,62),1,0 

6120 DRAW "CO BM21,64 F2 C3" 

6130 RETURN 

6140 REM 

6150 REM **x* INTERRUPCIONES CON F1 x*xx 

6160 REM 

6170 GOSUB 4340 

6180 SCREEN O 

6190 CLS 

68200 WIDTH 80 

6210 LOCATE 11,10: PRINT B$;" 
6220 LOCATE 13,35: PRINT "1. "; 
6230 IF W = 1 THEN PRINT P$ ELSE PRINT T$ 
6240 LOCATE 14,35: PRINT "2. ”; 

6250 IF W = 2 THEN PRINT P$: GOTO 3540 
6260 IF W = 1 THEN PRINT T$ ELSE PRINT 0$ 
6270 LOCATE 15,35: PRINT "3. ”; 

6280 IF W = 3 THEN PRINT P$ ELSE PRINT 0$, 
6290 LOCATE 20,25: PRINT "(SU RESPONCIA (1-3)?2"; 
8300 LOCATE 23,3: PRINT "PULSO *F1” VER LA VISTA" 
6310 KEY(1) ON 


";E$ 


6320 RETURN 

6330 REM 

6340 REM **x* DATA PARA EL EDIFICIO *x*xx 

6350 REM 

6360 DATA "There are curtains ",” the window. ","in","on","at" 


6370 DATA "The sign *Joe”s Bar % Grill” is "," the building.","on","off","at" 


6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"A light is "," the door. ", "over", "under", "below" 

"The door is ","” the light.","under", "over", "above" 

"The stelrs go ",” the door... “bo Mak. Of" 

“The stairs go ","” the street to the door. ","from", "to", "at" 

“The. light is turned on ",” the night. ”, "during", "at", of” 

"The parking sign is "," the stairs.","beside", "with", "from" 

"The *G* in *GRILL? comes "," the *R*.","before", "after", "during" 
"The *R* in *GRILL” comes "," the *G”."”", "after", "before", "during" 
"The door is "," the sign and the window. ", "between", "above", "during" 
"The stairs are "," the building. ", "in front of", "behind", "before" 


"The door is "," the cat.”", "near", "far from", "after" 


"18 ¿b411. 35. *",” the top.5Btep.", "on", oftt , at: 

"The door is "," the light.", "below", "above", "over" 

"The light is ",”" the door.","above:', "below", "under" 

"The ball is "," the door."," near", "far from", "between" 

"The parking sign points to parking "," the building. ", "behind", "in fr 


ont of", "between" 


6540 
6550 
6560 
fter" 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6s10 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
LO) 


6900 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 


"The stairs go "," the door to the street. ","from","to"”, "between" 
"The cat is "," the building. ", "in front of", "behind", "between" 
"The *I* in *GRILL” is "," the *R* and the *L”.","between", "before", "a 


“The "R* in *BAR” Is ",” the *4”.", "after", “after”, "betwesn"” 


“The 4 ty "BAR” “38. ";'” the *R*."; "before", “after”, “during” 

"The parking sign is "," the *JOE*S” sign."," below", "above", "over" 
“The *JOE*S* sign is "," the parking sign.", "above", "below", "under" 
"The door is "," the window. ", "beside", "far from","between" 

"The door is ”,” the window. ”, "neár”, "far from", "into" 

“There is the letter *L* "," the word *GRILL”*.","in","on", "over" 
"The door is "," the street.","far from", "below", "beside" 

"The parking sign is "," the *JOE*S” sign.","under","over","abuve" 


"The *JOE*S* sign is "," the parking sign.", "over", "below","under" 


REM *x*xx* DATA PARA JOE x*xx 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 


"Joe was looking "," the window. ", "through", "at", "in" 

"Joe was looking "," you.","at","through", "in" 

"Joe was hiding "," the curtain.", "behind", "in front of”, "under" 
"Joe is shy. He is afraid "," most people.","of","at","by" 


"Joe never goes the do00r;> ," 0Ut?, 10, L0%. 

"Joe always has good food "," the customers. ", "for", "by", "to" 
*Jos. has a hat. *,." bis hsad.", "on"; “otft”, by” 

“JOBS: DECO Lalks -*,. 1nIE cab." 010”. 46») LOL. 

"Joe is never "," his hat.","without","with", "for" 


"Joe*?s bar is open ",” lam. ”, "until", “by", “to” 


"Joe doesn,t open the bar "," 1pm.","until","at", "to" 
"There are many customers ”," dinnertime.","during", "at", "to" 


"Joe sometimes talks "," the customers. ","with","without", "by" 
"Joe cooks the food "," the customers.","for","at", "by" 


“Jos lives "," himself. ","by".,“at", near" 


REM *x*x* DATA PARA LA PELOTA xxx 


REM 
DATA 
DATA 


“into” 


DATA 


"First the ball bounced ",”" the stairs.”, "down", "up", "through" 

"After bouncing down the stairs, the ball bounced "," the street.","on 
, near" 

"*,% bouncing down the stairs, the ball bounced onto the street.",'"Aft 


er", "Before", "During" 
8910 DATA "Before bouncing up the stairs, the ball bounced "," the bucket.", "int 
0", "OBLO”") Lar .Erom” 


6920 


DATA 


mo. o. 
, 


bouncing up the stairs, the ball bounced into the bucket.","Befor 


e", After”, "During" 


6930 
6940 
6950 


rs.", "up", 


6960 


y ALLOD > 


DATA 
DATA 
DATA 


DATA 


“The ball started at the top "," the stairs.","of"," "near", "by" 

“The ball started "," the top of the stairs.","at","to", "by" 

“After the ball bounced into the bucket, the ball bounced "," the stai 
“down”, "through" : 

v" " the ball bounced into the bucket, the ball bounced up the stairs. 
“Before”, "During" 


6970 DATA "After the ball bounced ",” the bucket, the' ball bounced up the stairs 
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AA AO OBTO Ads 
6980 DATA "The ball bounced on each one "," 


the stdalre.",. "OL" Tonbo”. py 


“After bouncing "," the stairs, 


689290 DATA "Before bouncing into the bucket, the ball bounced "," the street.","o 
BCO Sabor. 0N 

7000 DATA ""," bouncing into the bucket, the ball bounced onto the street.","Bef 
ore",After", "During" dá 

7010 DATA "Bef bouncing ",” the bucket, the ball bounced onto the street. ","i 
ABO. OALO”, Dy > 

7020 DATA "Before bouncing ",”" the stairs, the ball bournced into the bucket.","u 
Pb": "dewa", by" y 


the ball bounced onto the street.","do 


EL GATO 


"The 
"The 
"The 
"The 
"The 
"The 
"The 
"The 


cat 
cat 
cat 


Sitting *," Thestop. Stade... OR", ab py: 

vas sitting *"," thetop of the Sstaira.”, 860, 10, OL 
was sitting on the top "," the stairs.","of","to","at" 
cab” fell "," the Btaire..", OLÉ". OD, 0É 

cat landed "," the stairs.", "under", "above", "over" 

fall to the ground was very bad "," the cat.","for","to", "from" 
fall "," the ground was vary bad for the cat.","to","at", "for" 
cat landed "," a loud noise. ”", "with", "without", "for" 

"The:cab fell”, "-the: top Step... rom. dew or. 

“The cat fell. "," the street, ","ohto", "into", "at" 


was 


DATA 


DATA "After the fall, 


DATA 5," 
", "During" 


7190 DATA "The cat landed "," 


Al final del programa aparece una ta- 
bla que nos informa de las respuestas 
correctas y erróneas que hemos tenido 
en cada una de las cuatro fases de las 
que se compone el programa. 


PES TADOS FINALE 


PIDA E 


A Resultados finales. 


Este programa aparecerá aproximada- 
mente en versiones para los demás orde- 
nadores. 


the cats legs are pointing "," 
the fall, the cats legs are pointing at the sky."," "After", "Before 


The DOSt.".” 


Tha. -.SEy.", RE”, Or"... 


beside","far from", "over" 


Programa: Carrera 
de caballos para Spectrum 


El juego que aparece a continuación 
nos va a permitir trasladarnos al hipódro- 
mo de la Zarzuela sin tener que salir de 
casa. Con este programa podremos ver 
una serie de carreras de caballos e inclu- 
so podremos apostar por el que más nos 
guste. 


JUGAR 


PULSA UNA" TECLA PARA 


Presentación del programa. 


10 
20 
30 
31 
32 
34 
40 
50 
60 
70 
80 
90 
allo 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


400 
410 


420 
430 
440 
450 
455 
460 
470 
480 
485 
490 
500 
510 
520 
530 
540 
550 
560 
565 
570 
580 
590 
595 
600 
610 


REM AMS SOOSlSiOiSlSlOiO OSO jOKOk 

REM * CARRERA DE CABALLOS * 

REM ASSSSSOO SOS SOS OJOk 

REM * POR CARLOS DORAL * 

REM MMS SS OSOS OSOS Old lS old JOJOk 

REM 

GO SUB 970 

CLS 

DIM c(10) 

PRINT AT 0,6; FLASH 1; "CARRERA DE CABALLOS" 


PRINT ? 

PRINT " Dispones de 2000 pts. para ju- gar, juega y gana apostando al 
que creas conveniente." 

PRINT : 

PRINT " Segun lo que apuestes, asi sera el bote, y eso ganaras. ” 
PRINT '*” FLASH 1;" PULSA UNA TECLA PARA JUGAR 

FOR f=1 TO $0 

NEXT f 

IN INKEYS$="" THEN. GO TO 150 

LET pt=2000 

CLOS 

PRINT AT 10,10; ”"Tienes= "¡pt 


INPUT "Cuanto quieres apostar ? "¡ap 
IF ap<i OR ap>»pt THEN GO TO 190 
RANDOMIZE PEEK 23672 
LET bo=INT (RND*ap) 
PRINT AT 12,6;"El bote es de= ";bo 
FOR f-1 TO 200 : 
NEXT f 
PRINT AT 20,8; FLASH 1;"PULSA UNA TECLA" 
IF INKEY$="" THEN GO TO 270 
CLS 
FOR f<=1. TO 10 
LET u(f)=30 
NEXT f 
GO SUB 570 
FOR £E1 TO 19 "STEP -2 


PRINT AT £,30;CHR$ 144+CHR3 145 
NEXT f 


INPUT "Por cual apuestas (1-10) ? "¡nc 
IF nc<1 OR nc>10 THEN GO TO 360 

PRINT AT 21,8; FLASH 1;"PULSA UNA TECLA" 
FOR f=1 TO 200 

NEXT f 


IF INKEY$="" THEN GO TO 410 
PRINT AT 21,8;TAB 24 

LET rn=1+INT (RND*10) 

GO SUB 460 

GO TO 430 

REM 

REM HOHOHORORORORHOROROROHOR 


REM HIMPRESION DEL CABALLO+ 

REM HOHOROROHOROHOHORORORHOR 

REM 

LET x=c(rn) 

LET x=x-1 

PRINT AT -1+(rnx*x2),x;CHR$ 144;CHR$ 145 
PRINT AT -1+(rn*2),x+2;"  " 

IF x=0 THEN GO TO 660 

LET c(rn)=x 

RETURN 

sTOP 

REM 

REM —-+-=+-+-=+=+-+=++++-+- 

REM -+-+-+- DECORADO +-4+-+- 

REM —+-+-+-+-+-+-+=+-+-+-+- 

REM 

LET a$-"HHHiarasaaraaara aa canada a aaa aaa aaa” 
PRINT AT 0,0;a$;AT 20,0;a$ 


cab 
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620 FOR f=2 TO 18 STEP 2 

630 PRINT AT f,2a$( TO 30) 

640 NEXT f 

650 RETURN 

GOO REM AS TE AREA e 

670 REM x FIN DE PARTIDA k 

680. REM: dk MER a se 

690 IF rn=nc THEN GO TO 800 

700 PRINT AT 21,0; FLASH 1;" 000H,NO HA GANADO TU CABALLO. " 
TIO" FOR :£=1-TO 200 

720 NEXT f 

730: PRINT AT 21,037 

740 LET pt=pt-ap . 

750 IF pt<1 THEN PRINT AT 21,1;" * * No te queda mas dinero * *": FOR f=-20 TO 
1 STEP -3: BEEP .20,f: NEXT f: GO TO 920 
760. PRINT. AT 21,0; Te quedan ";pt;"” pts.” 
770 INPUT "Quieres seguir (s/n)? ";a$ 
780 IF a$="S" OR a$="s" THEN GO TO 170 
790 STOP 

800 PRINT AT 21,11; FLASH 1;"HAS GANADO" 
810 FOR f=-20 TO 50 STEP 4 

820 BEEP ,10, f 

830 NEXT f 

840 FOR f=1 TO 100 

850 NEXT f 


SEO PRINE AT-21,03" 
870. PRINT AT:21,0;"Tienes “;pt;” pts + ";bo;" z " = ";bo+pt+ap 


880 LET pt=bo+pt+ap 

890 INPUT "Quieres seguir jugando (s/n)? " 

900 IF a$="s" OR a$="S" THEN GO TO 170 

2910 STOP 

920 PRINT AT 21,0;" 

930 PRINT AT 21,0;"El caballo ganador es el ";rn;" .”" 
940 INPUT "Quieres jugar otra?(s/n) ";a$S 

B50 tFPas="S TOR ad="5" THEN CES : GO TO 70 

960 STOP 

965 REM 

970 REM 

980 REM 

990 REM 

995 REM 

1000 FOR f=65368 TO 65383 

1010 READ a 

1020 POKE f,a 

1030 NEXT f 

1040 RETURN 

1050 DATA 5,51,95,127,79,10, 20, 20, 128, 194, 252, 240, 248, 72,36, 36 


pinares cuac 

ooh acinnanal lnncónndens 

crean pnnnamenmanos MO comenenncnnocnencenennacana MN 4 
annucranaassasnsaniaacaanana naa PUNO: pa $8 38 28 08 EY 88 23:03 08 ES EN 08 DE SB UN DS SN 88 08 DN GN 28 08 88 28 z y 

Los caballos MS A : E fe e M0 


anonsnananacrarspanc aran nas 
sanan naaa napa aa 
n..4n.( nonananaaanasrasasdsanaaa 
snos e 

ie 10 1d 00 0050 00 08 00 00 09 03 00 00 090300012 00 08 AR AR AR ARA A 
SOMO 0000 mese 0000 00 00 004800 9. MU 02 
ana nauseas na 


noprocasaaa 
Y CABALLO. 


en plena 
galopada. 


Final de 
la carrera. 


TOMA DE DATOS 


A toma de datos es 
una fase tundamental 
del procesamiento 
de datos, en cual- 
quier aplicación in- 
formática. Si es cierto 
que la «calidad» de 
la información obte- 
nida viene marcada fundamentalmente 
por la «calidad» de las informaciones 
parciales y datos que se entregan al sis- 
tema, no lo es menos que la aplicación 
diseñada no puede «inventar» datos y 
que, por tanto, es básico que los datos 
de entrada al sistema informático sean 
correctos, completos, desprovistos de 
errores (en la medida de lo posible) y 
precisos. Remedando a la expresión uti- 
lizada en los sistemas de comunicación 
para definir a un cierto protocolo de ma- 
nejo de colas: el FIFO («First in, first out» 
primer dato o mensaje en la entrada, pri- 
mero en la salida), usan los analistas en 
tono coloquial la expresión irónica BIBO 
(«Basura» en la entrada, «basura» en la 
salida), para subrayar la idea comenta- 
da: los datos y resultados obtenidos por 
el sistema informático no pueden ser de 
«Calidad» mayor que los datos que se le 
facilitan. 

Y para conseguir que nuestro sistema 
disponga de unos datos adecuados, de- 
ben realizarse con lu máxima eficacia las 
dos tareas básicas de la toma de datos: 
obtención de la información y prepara- 
ción para su introducción al ordenador. 
Es, por tanto, de suma importancia que 
el documento en el que se recojan los 
datos de entrada esté bien diseñado 
para que quien deba facilitar la informa- 
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ción lo haga eficazmente y los codifica- 
dores realicen su tarea con precisión y 
seguridad. 

Por otro lado, incluso para el usuario in- 
dividual de un ordenador personal es útil 
reflexionar, como hacemos a continua- 
ción, sobre cómo debe diseñar un docu- 
mento que refleje los datos de entrada a 
un proceso, para asegurarse de que di- 
chos datos son completos, y están pues- 
tos ordenada y cómodamente, lo que 
siempre ayuda a evitar errores. 

En el diseño del impreso de toma de 
datos deberán tenerse en cuenta varios 
aspectos: 


Aspecto general 


Es importante que el aspecto general 
que presente el documento sea agrada- 
ble. Por ello, deben evitarse los impresos 
con una alta densidad de preguntas por 
página (especialmente si cada pregun- 
ta tiene muchos datos impresos: pregun- 
tas de elección múltiple o de menú). Si 
es necesario, resulta preferible distribuir 
el cuestionario en varias páginas, antes 
que presentar alguna hoja muy recarga- 
da. Además, la distribución de preguntas 
y espacios para las respuestas debe ser 
equilibrada, para que resulte grata a 
quien debe contestar el cuestionario. 
Suele ser de enorme utilidad el poder in- 
troducir colores o zonas sombreadas 
para mejorar el aspecto general del do- 
cumento. En ocasiones, incluso, puede 
ayudar el incluir algún diagrama o símbo- 
lo en el impreso. 


2 TECNICAS DE ANALISIS 


Hay que tener en cuenta, además, que 
si el documento de toma de datos es del 
tipo «cuestionario de preguntas» suele 
llevar preimpresa mucha más informa- 
ción que si es del tipo «casillero de da- 
tos». En el documento con aspecto de 
«Cuestionario» el texto de las preguntas 
ayuda a la correcta respuesta de datos, 
y permite incluir en el cuestionario co- 
mentarios o tablas auxiliares, pero resul- 
ta más «Gbigarrado» y, por tanto, debe 
cuidarse con más atención el aspecto 
general: inclusión de espacios vacíos, 
separación de zonas, sombreado de cier- 
tas áreas, etc. Por el contrario, en el «ca- 
sillero de datos», en el que se transcriben 
informaciones obtenidas de otros docu- 
mentos o como salida de otros procesos 
O máquinas, están preimpresos menos 
textos (y más breves) y el aspecto gene- 
ral puede resultar más «descargado». 
(Normalmente, además, este tipo de do- 
cumentos suele ser cumplimentado por 
personas más preparadas y más motiva- 
das por esta tarea.) 


En el diseño general del cuestionario 
hay que tener en cuenta no sólo a quien 
cumplimenta los datos, sino al codifica- 
dor que los codifica posteriormente (si es 
necesaria alguna codificación de datos, 
como es usual) y a quien debe transcri- 
bir los datos al ordenador (grabación de 
datos o introducción por teclado): el do- 
cumento debe ser práctico para ambos 
(deben encontrar las informaciones or- 
denadas según las van a procesar y con 
el resto de datos que necesitan: tablas 
de códigos y equivalencias, el codifica- 
dor, indicaciones sobre columnas y regis- 
tros, el transcriptor). En todo documento 
de toma de datos suelen existir dos zonas 
netamente separadas: el cuerpo del do- 
cumento propiamente dicho (donde 
aparecen las preguntas y se dispone de 
espacio para las respuestas los datos de 
codificación y transcripción) y la zona de 
datos complementarios de identifica- 
ción del documento. En ocasiones esta 
zona de datos complementarios (tipo de 
documento, nombre del mismo, datos de 
identificación de la aplicación a la que 
se destinan los datos, techa de cumpli- 
mentación de cada fase, identificación 
de las personas que realizan cada tarea 
sobre el impreso, etc.) se descompone 
en dos: una a modo de encabezamiento 
y otra, en función de «pie» del impreso; 


es importante, en cualquier caso, sepa- 
rar nítidamente esta(s) zona(s) de infor- 
maciones complementarias (que no 
van a ser procesadas) de los datos pro- 
piamente dichos que constituyen el 
cuerpo del documento. Un buen sistema 
consiste en separar ambas zonas me- 
diante distintos colores (si el coste lo per- 
mite). 

Otro aspecto importante a tener en 
cuenta en el diseño general del docu- 
mento de toma de datos es la inclusión 
de comentarios aclaratorios de las pre- 
guntas en sí, de tablas de códigos o, en 
general, de diversas instrucciones y nor- 
mas útiles en la cumplimentación de los 


Datos de Identificación 


a) anverso 


Datos finales de Identificación, fechas, flr- 
mas, etc. 


a) reverso 


datos. No existe unanimidad sobre si de- 
Datos de Identificación ben ser incluidas en un solo bloque (al fi- 
nal del impreso o, quizá incluso, en el re- 
verso de las hojas) o bien es preferible 
distribuirlas a lo largo del impreso. El pro- 
cedimiento de reunir todos los datos 
complementarios en un solo bloque tie- 
ne la ventaja de que el documento que- 
da más claro, queda menos «abigarra- 
do» (lo que da menos sensación de «can- 
sancio» a quien debe rellenarlo) y facili- 
ta la lectura de todas las instrucciones 
conjuntamente (lo que ayuda a una me- 
jor comprensión global de los datos que 
se piden y su distribución); tiene, por el 
contrario, el inconveniente de que pue- 
de ser tedioso ir refiriéndose constante- 
mente al bloque de instrucciones para 
responder cada pregunta (e incluso, qui- 
zá, tener que estar constantemente dan- 
do vueltas al papel) y que se presta a 
que la persona correspondiente acabe 
dejando de leer estas instrucciones. 
Las ventajas e inconvenientes del siste- 
b) anverso ma de «instrucciones distribuidas» son las 
inversas. Dependiendo del tipo de perso- 
Instrucciones generales: nas que va a cumplimentar el cuestiona- 
rio o casillero de datos (si son profesiona- 
les de esta tarea, si tienen preparación 
intelectual o no, si van a tener interés en 
poner cuidado con las respuestas, etc.) 
y del propio contenido del impreso ha- 
brá que decidir si se elige un tipo de im- 
preso u otro. 


Datos finales 


complementarias en un documento: «ins- 
trucciones distribuidas» (a) y «datos en blo- 
b) reverso que» (b). 


«| Dos modos de incluir las informaciones 


ASTA ahora hemos 
visto cómo se decla- 
ra en los diferentes 
lenguajes la estructu- 
ra y el tipo de las va- 
riables que forman 
parte de los progra- 
mas, así como la ma- 
nera en que se realizan operaciones y se 
asignan los valores correspondientes a 
dichas variables. Pero apenas hemos ha- 
blado todavía de la forma en que se di- 
rige la ejecución de los programas, de 
cómo puede regularse el orden en que 
se van ejecutando progresivamente las 
instrucciones. Este orden constituye, por 
decirlo así, el esqueleto de los progra- 
mas. 

Ha llegado el momento de explicar las 
principales estructuras de control que 
pueden entrar a formar parte de los pro- 
gramas de ordenador en los diferentes 
lenguajes de programación. Entre estas 
estructuras vamos a describir, en primer 
lugar, con más detalle, tres de ellas: 


1. Bloques secuenciales. 
2. Instrucciones condicionales. 
3. Bucles. 


Se dice que está «bien estructurado» 
aquel programa que no utiliza más que 
las tres estructuras anteriores. El arte de 
construir programas bien estructurados 
se llama «programación estructurada». 
En relación con esto, el conjunto de to- 
dos los programadores se divide clara- 
mente en dos grupos muy bien definidos: 
por un lado, los partidarios a ultranza de 
la programación estructurada, que se 
niegan a utilizar otro tipo de estructuras 
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ESTRUCTURAS DE CONTROL 


de control y consideran deplorable el es- 
tilo de cualquier programador que se sal- 
ga de ellas; por otro lado, los partidarios 
de la libertad absoluta en la forma de 
programar, que recurren a menudo a es- 
tructuras de control más generales, 
como la «transferencia directa», aunque 
también utilizan las tres estructuras men- 
cionadas anteriormente. 


Los dos lados de la discusión tienen su 
parte de razón. Es cierto que los progra- 
mas bien estructurados son más fáciles 
de revisar y corregir. Además, son más 
sencillos de entender por una persona 
diferente de su autor o por éste mismo, si 
ha pasado cierto tiempo desde que se 
construyó y se le ha olvidado su funcio- 
namiento. Pero también es cierto que un 
programa estructurado suele ser más lar- 
go que un programa equivalente que uti- 
lice la transferencia directa, a menudo 
ocupa más espacio en memoria e inclu- 
so puede ser más lento. 


Mi opinión personal en esta cuestión se 
coloca más o menos en la mitad del ca- 
mino entre ambos extremos, pero se in- 
clina ligeramente hacia la libertad de 
programación. En efecto, creo que un 
programa que utiliza la instrucción de 
transferencia directa puede ser tan fácil 
de leer, interpretar y corregir como otro 
que prescinda de ella. Todo depende de 
que el programador tenga el cuidado de 
estructurar correctamente sus progra- 
mas, sin abusar de las facilidades que le 
proporciona la instrucción de transferen- 
cia directa para hacerlo ilegible y enre- 
dar su funcionamiento de manera que 
sea casi imposible comprenderlo. 


La polémica entre la programación es- 
tructurada y la programación libre se ex- 
tiende a los mismos lenguajes de progra- 
mación. Hay lenguajes, como el PASCAL, 
que han sido diseñados expresamente 
para que sea mucho más fácil programar 
estructuradamente que utilizar la transfe- 
rencia directa, aunque esta estructura 
de control también existe en ellos. Otros 
lenguajes, como el BASIC, se inclinan 
más bien a la programación libre, dando 
preferencia a la transferencia directa so- 
bre el resto de las estructuras. Por último, 
lenguajes como el APL se apoyan en la 
programación modular (que veremos 
más adelante) y en la potencia del len- 
guaje para reducir a un mínimo la nece- 
sidad de utilizar estructuras de control. 
Por esta razón, los organigramas de los 
programas APL suelen reducirse a sim- 
ples secuencias de bloques. 


Bloques secuenciales 


Un bloque secuencial es un conjunto 
de instrucciones que se ejecutan sucesi- 
vamente, una tras otra, en el mismo or- 
den en que han sido definidas. El organi- 
grama de un bloque secuencial se repre- 
senta en la figura 1. 


> 
= 


Cada una de las cajas rectangulares 
del organigrama representa una ac- 
ción a ejecutar (es decir, una instruc- 
ción). Los dos bloques curvos del diagra- 
ma señalan el principio y el fin del blo- 
que secuencial, y no corresponden a nin- 
guna instrucción ejecutable. 

En BASIC, un bloque secuencial se pue- 
de representar de dos maneras: 

1. Mediante un conjunto de instruc- 
ciones consecutivas, cada una de las 
cuales tiene su propio número de instruc- 
ción. Por ejemplo: 


M(3,2) 
20 LET M(1,1)=1 
30 LET M(1,2)=2 
40 LET M(2,1)=4 
50 LET M(2,2)=5 
60 LET M(3,1)=7 
M(3,2)=8 


cuyo organigrama es: 


2. Mediante varias instrucciones defi- 
nidas consecutivamente en una sola lí- 
nea y separadas entre sí por dos puntos. 
En este caso, todas ellas tendrán el mis- 
mo número de instrucción. Por ejemplo: 
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LET M(3,2)=89 


El organigrama correspondiente a este 
programa es el mismo que el del progra- 
ma anterior, pues ambos son totalmente 
equivalentes. 

También puede representarse un blo- 
que secuencial mediante una mezcla de 
las dos formas anteriores. Por ejemplo: 


10 DIM M(3,2) 
20 LET M(1,1)=1 : LET M(1,2)=2 
30 LET M(2,1)=4 : LET M(2,2)=5 
40 LET M(3,1)=7 : LET M(3,2)=8 


A veces, esta última forma de represen- 
tación (a la que también corresponde el 
mismo organigrama) es la más conve- 
niente. En el ejemplo dado, hemos sepa- 
rado la declaración de la tabla M de las 
asignaciones de valor a cada una de las 
filas, lo que hace más condensado el 
bloque completo (que pasa a tener cua- 
tro instrucciones numeradas en lugar de 
siete) sin hacerlo más difícil de entender, 
lo que puede ocurrir si se abusa de líneas 
demasiado largas, como en el segundo 
ejemplo. 

En PASCAL, un bloque secuencial em- 
pieza siempre por la palabra reservada 
BEGIN, que indica el principio del bloque, 
y termina en la palabra reservada END, 
que señala su fin. Si nos fijamos en los or- 
ganigramas que representan bloques se- 
cuenciales, podemos pensar que BEGIN 
y END son las instrucciones de PASCAL 
que corresponden a los dos bloques cur- 
vos que se colocan siempre al principio 
y al final de las estructuras de este tipo. 

Veamos un ejemplo, que corresponde 
a la programación en PASCAL del mismo 
ejemplo dado anieriormente en BASIC, y 
que, por tanto, tendrá el mismo organi- 
grama que aquél: 


10 DIM M(3,2) : LET M(1,1)=1 : LET M(1,2)=2 : 
LET M(2,1)=4 : LET M(2,2)=5 : LET M(3,1)=7 2 


program TABLA; 
var 

m: array[1..3,1..2] of integer; 
begin 

mC1,11:=13 

m[1,21:=2; 

m(2,11:=4; 

m[2,21:=5; 

m[3,11:=7; 

m[3,21:=8; 
end. 


Se observará que todo programa PAS- 
CAL comienza por una instrucción que 
define su nombre («programa TABLA», en 
nuestro ejemplo) y se divide en dos par- 
tes principales: un conjunto de declara- 
ciones (que en este caso comienza por 
la palabra reservada «var») y un conjun- 
to de instrucciones ejecutables, que, en 
general, formarán un bloque secuencial 
y que, por tanto, deben comenzar por la 
palabra reservada «begin» y terminar 
con «end». 

En PASCAL las instrucciones han de ter- 
minar siempre en punto y coma. Por esta 
razón, su principio y su fin queda clara- 
mente delimitado, por lo que no se po- 
nen restricciones a la forma en que tie- 
nen que escribirse: se pueden mezclar 
varias instrucciones en la misma línea, 
dejar líneas en blanco, partir una línea 
en dos, encolumnar ciertas instrucciones 
de una manera y otras de otra, etc. Se 
entiende que el programador deberá se- 
leccionar siempre aquella disposición 
que más contribuya a la legibilidad del 
programa, es decir, a hacerlo más com- 
prensible. Veamos, como ejemplo, otra 
forma en que podría escribirse el progra- 
ma anterior: 


program TABLA; 
var 


m: array[1..3,1..2] of integer; 
begin 


m(1,1J:=13 m[(1,21:=2; 
mC2,11:=43 m[2,21:=5; 
m[3,11:=7; m[3,2]:=8; 
end. 


En el lenguaje APL, un bloque secuen- 
cial se representa, como en BASIC, con 
un conjunto de líneas consecutivas nu- 
meradas adecuadamente. Algunos intér- 
pretes de APL permiten unir varias instruc- 
ciones en una sola línea, separándolas 
con un símbolo parecido al diamante de 
la baraja inglesa (4), pero esto no es un 
elemento estándar del lenguaje y hay 
otros intérpretes que no lo permiten. 

Para poner un ejemplo en APL tenemos 


RES+ INTERES 
[2] CAPITAL+0 
[4] TASA+O 


[6] TIEMPO+0 


[10] RESe* |" ,RES 
ELTI ORESEC AS LI" 


cuyo organigrama es: 


£4: *DEME EL VALOR DEL CAPITAL' 

[3] '*DEME LOS VALORES DE LAS TASAS DE INTERES” 
[51] '*DEME LOS TIEMPOS DE INVERSION" 

[7] VALOR+CAPITAL x (14+TASA+100)0.xTIEMPO 

181] RES+"*-*,11J3(7 OSVALOR ) 

[91 RES+ (7 OFTIEMPO), [11RES 


*,[11)] 4 1s((PTASA), 1)PTASA),RES 


que buscar un caso más complicado, ya 
que el programa que hemos estado si- 
guiendo en BASIC y PASCAL se reduce en 
APL a una sola instrucción, que estricta- 
mente hablando no constituye un bloque 
secuencial: 


Consideremos, por tanto, el ejemplo 
que ya vimos en el capítulo primero, que 
permitía obtener la tabla de interés com- 
puesto correspondiente a un capital de- 
terminado invertido con diferentes tipos 
de interés y durante diversos períodos de 
tiempo. Veamos primero el programa: 


y cuya ejecución da el siguiente resulta- 
do: 


4 


INTERES 
DEME EL VALOR DEL CAPITAL. 
DB: 

100000 
DEME LOS VALORES DE LAS TASAS DE INTERES 
BD; 

20-44 “12 
DEME LOS TIEMPOS DE INVERSION 
UD: 


10.0/| 146410 161051 177156 
11.0/ 151807 168506 187041 
12.0| 157352 176234 187382 


LOGO 


cómo corregir 


los procedimientos 


A hemos podido ha- 
cer muchas cosas 
nuevas usando pro- 
cedimientos. Pero te- 
nemos una pega. 
Cada vez que nos da- 
mos cuenta de que 
un procedimiento no 
funciona porque no realiza lo que nos- 
otros queremos, no nos queda mas reme- 
dio que borrarlo de la memoria de la tor- 
tuga y escribirlo de nuevo con los cam- 
bios que sean necesarios. Pero lo normal 
no es que todo el procedimiento esté 
mal, sino que sólo haya que cambiar al- 
gunas partes y el resto siga igual. Por ello, 
el borrar todo un procedimiento para 
cambiar unos cuantos comandos es un 
poco absurdo. 

Para evitar esto existe un comando que 
permite obtener la definición de uno o 
varios procedimientos para modificarla. 
El modificar una definición de uh proce- 
dimiento significa que podemos: 


— insertar o añadir 
— eliminar o borrar 
— cambiar 


comandos, números, letras..., dentro de 
ella. 
Asi, el comando 


EDITA “nombre 
o en abreviatura 
ED “nombre 


nos muestra en la pantalla la definición 
del procedimiento nombre para que po- 
damos cambiar aquello que este mal. 


En lugar de ver la definición de un solo 
procedimiento, nos puede interesar el vi- 
sualizar varios a la vez. Para ello, tendre- 
mos que poner los nombres de los distin- 
tos procedimientos en una lista. Así, nos 
quedaría 


EDITA (nombre 1 nombre? ... nombren) 
o en abreviatura 
ED (nombre 1 nombre?2 ... nombren) 


Antes de seguir, hemos de tener en 
cuenta varias cosas. 
Como hemos visto, si escribimos 


ED “nombre 


obtenemos en pantalla la definición del 
procedimiento llamado nombre siempre 
y cuando este procedimiento esté defini- 
do, es decir, se lo hayamos enseñado a 
la tortuga. En caso de que la tortuga no 
conozca ese nombre, nos mostrará en 
pantalla una sola línea que contendrá 


PARA nombre 


y, por tanto, tendremos la posibilidad de 
definir el procedimiento. Es decir, es otra 
manera de enseñar cosas nuevas a la 
tortuga. 

Por último, si ponemos el comando ED 
sin ningún nombre, se nos mostrará el úl- 
timo procedimiento que hayamos visua- 
lizado mediante este comando. 

Veamos todo esto con un ejemplo. Su- 
pongamos que le hemos enseñado a la 
tortuga un procedimiento llamado VIC 
que hace la siguiente figura: 


Este procedimiento lo habremos defini- 
do asi: 


? PARA y 


> AV 10 RE 1 


+, 6D 90 


> AV 


Si ahora queremos ver este procedi- 
miento para modificar algo, escribiremos 


Si salimos del editor y queremos volver 
a visualizar el mismo procedimiento, en 
lugar de escribir su nombre podemos de- 
jarlo en blanco: 


Por último, si de nuevo queremos ver 
este procedimiento y tecleamos mal: 


la tortuga no conoce ese nombre y nos 
da la posibilidad de que le enseñemos lo 
que significa. 


O Funcionamiento del editor 


Cuando le indicamos a la tortuga que 
queremos que ejecute el comando ED, 
decimos que hemos entrado en el editor. 

Es fácil darse cuenta de cuándo se está 
en el editor, debido a que la pantalla 
aparece en modo texto (no hay parte de 
dibujos) y, además, se nos muestra un 
mensaje en la parte de arriba o de aba- 
jo que lo indica. 


EDITOR LOGO 


PARA CUADRADO WE 
REPME 4 LAV10 GD 90) 
FIN 


También se distingue porque delante 
de las líneas donde están escritos o se 
escriben los comandos no aparece nin- 
gún carácter especial (?, >) como 
ocurre el resto de las veces. 

Cuando en la pantalla tenemos el edi- 
tor, podemos hacer muchas cosas: 

— añadir partes nuevas al procedi- 
miento; 

— borrar aquellas partes que no sir- 
ven; 

— cambiar o corregir lo que no esté 
completamente bien; 

— incluso podemos enseñarle cosas 
nuevas a la tortuga, es decir, definir un 
procedimiento que no existiera. 

Para poder realizar estas funciones, ne- 
cesitamos tener unas teclas que nos sir- 


a LOGO 


van para movernos por la definición, 
borrar caracteres, añadir lineas... Las 
mas importantes son las siguientes: 


Mueve el cursor a la línea anterior. 


Mueve el cursor una línea abajo. 


t 


Mueve el cursor un carácter a la izquierda. 


A 


Mueve el cursor un carácter a la derecha. 


MEL 


Borra el carácter que está a la izquierda del 
cursor. 


RETURN 


Crea una línea en blanco debajo de aque- 
lla en la que estaba situado el cursor. 


En general, estas teclas y su función de- 
penden del ordenador que se utilice. 


Una vez que hemos corregido nuestro 
procedimiento, tenemos dos formas de 
salir del editor: 


1. Diciéndole a la tortuga que quere- 
mos que se olvide de la definición anti- 
gua del procedimiento y que la sustituya 
por lo que hemos hecho en el editor. 


2. Diciéndole a la tortuga que no ten- 
ga en cuenta lo escrito o borrado en el 
editor y que siga recordando la defini- 
ción de antes. 

También para esto existen teclas espe- 
ciales que dependen del ordenador. . 

En función de cómo salgamos del edi- 
tor, la tortuga nos dará un mensaje dife- 
rente: 


1. La tortuga considera la definición 
nueva. 


2. La tortuga considera la definición 
antigua. 


Una vez que hemos modificado un pro- 
cedimiento que estaba mal, podemos 
volver a probarlo para ver si funciona. En 
caso de que no sea así, podemos usar de 
nuevo el editor para irlo cambiando has- 
ta que realice lo que nosotros queremos. 

Antes de utilizar el editor para modifi- 
car la definición de tus procedimientos, 
recuerda consultar el manual de tu orde- 
nador para saber qué teclas puedes uti- 
lizar dentro de él y qué teclas te permi- 
ten salir de él. 


Dos formas de definir 
procedimientos 


Vamos a dar un repaso a las dos ma- 
neras que tenemos de definir procedi- 
mientos, es decir, de enseñar a la tortu- 
ga cosas nuevas. 

Para ello, vamos a verlo con un ejem- 
plo. Supongamos que queremos hacer 
esta figura: 


EDITOR LOGO 
PARA RAYAS MB 


pulsamos 


il 


7 ED "RAYAS 


Una manera consiste en utilizar el co- 
mando PARA de la siguiente forma: 


? PAFA RAYAS 


AV 10 BL GD 90 
S RE O AV E 


790 5L AW 10 E 


RE 10 AV 5 


5 10: Bl 


JO AY 15 


Con este comando tenemos la ventaja 
de que en cuanto escribamos FIN y pul- 
semos RETURN podemos ejecutar el pro- 
cedimiento, pero tiene el inconveniente 
de que tendremos que entrar en el edi- 
tor si nos damos cuenta de que hemos 
escrito algo mal, ya que con el coman- 
do PARA no nos podemos mover por la 
definición de un procedimiento ni corre- 
girla. 

Otra manera de definir este procedi- 
miento es usando el comando ED 


y escribiendo en el editor la definición 
anterior. 

En caso de que nos equivoquemos al 
escribir el procedimiento podremos 
corregirlo, ya que el editor sirve princi- 
palmente para eso, pero hay que tener 
cuidado cuando salgamos de él. Debe- 
mos pulsar la tecla que haga que la tor- 
tuga guarde en su memoria lo que aca- 
bamos de escribir, porque si no, no sabrá 
lo que tiene que hacer cuando le diga- 
mos que ejecute el procedimiento. 


PASCAL 


EL TIPO ARRAY 


ASTA ahora sólo he- 
mos utilizado como 
índices números per- 
tenecientes a subran- 
gos del tipo INTEGER; 
sin embargo, no es 
éste el único tipo per- 
mitido. 

En PASCAL se pueden definir tablas con 
índices de cualquier tipo escalar o sub- 


program Presupuesto; 
type 


DiaDeLaSemana_t = 


Gastos_t 
Horas_t 


var 
Gastos: Gastos_t; 
Horas : Horas_t3 
Dia : DiaDeLaSemana_t;3 


begin 


Horas [Martesl:= 5; 


writeln (Gastos [DialJ); 


Los elementos constitutivos de una va- 
riable del tipo array pueden ser de CUAL- 
QUIER tipo que se nos ocurra; tipos pre- 


(Lunes, Martes,Miercoles, Jueves, Viernes, Sabado, Domingo) ; 
Dialaborable_t = Lunes..Viernes; 
= array [DiaDeLaSemana_tJ of real; 
= array [DiaLaborable_tJ of integer; 


for Dia:= Lunes to Domingo do 


rango, siempre que =2l espacio de me- 
moria necesario para la tabla resultante 
esté dentro de los límites impuestos por 
la memoria del ordenador y el propio 
compilador. 


Por ejemplo, para guardar los gastos 
de los diferentes días de la semana y las 
horas trabajadas en un programa de pre- 
supuestos, podríamos poner: 


definidos, tipos nuevos e incluso tablas 
de otro tipo. 
Imaginemos que en el colegio en que 


se va a utilizar el programa de medias 
que hicimos anteriormente haya varios 
grupos llamados A, B, C, D y E. Una vez 
más, podríamos crear para cada uno 
una variable tipo array diferente, No- 
tas.A, Notas.B, etc., pero entonces habría 
que repetir las instrucciones para cada 
una. 

En lugar de eso, podríamos crear una 
tabla de... tablas de notas: 


type 
Alumno.t = 41..100; 
Grupo.t = array (Alumno.!t) of real; 
Notas.t = array (*A”..*E”) of Grupo.!t; 
var 


Notas : Notas..!t; 


Para referirnos entonces a la tabla de 
notas del grupo B pondríamos: 

Notas ('B”) 
y para referirnos a la nota del alumno 37 
del grupo B haríamos, por tanto: 

Notas ('B”) (37) 


Haciendo una definición de tipo «sobre 
la marcha», se puede evitar definir el tipo 
Grupo.!t: 


Notas.t = array ('A”..*E”) of 
array (Alumno.!t) of real; 


Teniendo en cuenta las diferentes asig- 
naturas, podríamos tener: 


type 
Materias.t = (Física, Lengua, Inglés); 
Alumno.t = 1..100; 


Notas.t  = array (Materias.t) of 
array ('A”..'E”) of 
array (Alumno.t) of 
real; 
var 


Notas: Notas.!t; 
y tendríamos entonces, por ejemplo: 
Notas (Fisica) (*B”) (37) 


que sería la nota del alumno 37 del gru- 
po B en física. A este tipo de variables se 
les llama tablas (o arrays) multidimensio- 
nales. 

Como se ve, el total de datos que se 
podría guardar en Notas sería 3 asigna- 
turas por 5 grupos por 100 alumnos igual 
a 1.500 números; por tanto, debe haber 
suficiente espacio en memoria para al- 
bergar, además del programa y las otras 
variables, los 1.500 números reales (nor- 
malmente, y dependiendo del compila- 


dor, un número de tipo Real ocupa entre 
5 y 8 bytes). 
En PASCAL la expresiones como: 


array (Materias.t) of 
array ('A”..*E”) of 
array (Alumno.t) of real 


y 
Notas (Fisica) ('B”)] (37) 


se pueden abreviar así: 


array (Materias.t, *A”..*E”, Alumno.t) of 
real 
Notas (Fisica, *B”, 37) 


es decir, poniendo los diferentes subíindi- 
ces entre una única pareja de corchetes, 
y separándolos con comas. 


Por supuesto, el tipo tabla es perfec- 
tamente válido a la hora de definir varia- 
bles locales de procedimientos o de pa- 
sar parámetros a éstos. Conviene recor- 
dar que el paso de parámetros por valor, 
al implicar un proceso de copia de da- 
tos, puede ser más lento que el paso de 
parámetros por nombre si la tabla ocupa 
mucho espacio de memoria. 


A propósito de lentitudes, la utilización 
de tablas en lugar de muchas variables 
simples tiene un inconveniente que nor- 
malmente es despreciable frente a las 
ventajas que depara: cuando se hace 
referencia a un elemento de una tabla, 
por lo menos hay que obtener dos datos 
de la memoria del ordenador, primero el 
índice y luego el propio elemento; sin 
embargo, con las variables simples, se 
accede directamente al dato de interés 
y por ello el manejo de tablas es un poco 
más lento. 


' Tabla de caracteres 


Un caso especial de array es aquél cu- 
yos elementos son caracteres: al ser ta- 
blas de éstos, permiten guardar textos. 

Supongamos que tenemos definida la 
variable Texto como array (1..4) of char; 
con lo que sabemos, para guardar la pa- 
labra 'Luis' haríamos: 


Texto E; 
Texto a 
Texto (3 

4 


Texto 


se PASCAL 


Sin embargo, la mayoría de los compi- 
ladores permiten poner: 


Texto := *Luis”; 
(" Deben ser exactamente 4 caracteres ”) 


También suele ser posible escribir o 
leer con una sola instrucción estas ta- 
blas: 


readin (Texto); 
writeln (Texto); 


Esta última instrucción, por ejemplo, 
equivaldria a: 


for Indice := 4 to 4 do 
write (Texto (Indice))»; 
writeln; 


por otra parte, la instrucción de lectura 
tomaría sólo los primeros cuatro caracte- 
res si hubiésemos tecleado de más, y re- 
llenaría con espacios en blanco o con el 
carácter cuyo ordinal es O (chr (0)), se- 
gún el compilador, los que faltasen has- 
ta cuatro si hubiéramos tecleado de me- 
nos antes de pulsar la tecla de RETURN (o 
INTRO...). 

A las tablas de caracteres se les llama 
habitualmente «STRINGS» (cuerda en in- 
glés). No obstante, y aunque en princi- 
pio, las tablas de caracteres son las ade- 
cuadas para guardar textos, algunos 


program Barquitos; 


type 


Estado_t = (Agua, Tocado, 
Fila_t e OA 
Columa_t = 1..10; 
Tablero_t = 


(Xk o bien 


var 
Propio, 
Contrario: Tablero_t; 


entonces podríamos escribir cosas 
como: 


Contrario (*B”, 7) := Agua; 
( o sea, en B7 hay agua *) 
if Contrario (*J”, 9) = Ni Idea then... 


Hundido, Nildea); 


array [Fila_tJ of array [Columa_tJ of Estado_t; 


array [Fila_t, Columna_tJ of Estado_t; *X) 


compiladores disponen para esto de un 
tipo predefinido especial llamado preci- 
samente string que facilita algunas cosas 
y que es compatible sólo en parte con 
las tablas. Quizá en otro momento volva- 
mos sobre esto pero, en general, utiliza- 
remos en todos los programas que escri- 
bamos exclusivamente tablas de carac- 
teres a la hora de manipular textos. 


' Un ejemplo 


Vamos a ver cómo podríamos guardar 
en memoria la situación del tablero del 
contrario en una partida de batalla na- 
val (o de «barquitos»). 

En cada posición del tablero puede 
haber cuatro situaciones: que haya 
agua, que haya un barco tocado, que 
haya un barco hundido o que no se sepa 
lo que hay; podríamos así definir por enu- 
meración el tipo de los posibles valores 
que puede tomar una posición, al que 
llamaríamos, por ejemplo, Estado.!. 

Para almacenar la situación de una fila 
del tablero tendríamos entonces un array 
(1..10) of Estado.t y, por tanto, el tablero 
completo quedaría como una tabla de fi- 
las, o sea: 


Si quisiéramos visualizar en pantalla la 
situación de un tablero escribiendo, por 
ejemplo, un espacio en blanco en las ca- 
sillas desconocidas, una T en donde 
haya barco tocado, una H en los hundi- 
dos y una A donde se sepa que hay 
agua, podríamos escribir: 


procedure MuestraTablero (T: Tablero_t); 


var 
Fila 2 Fila tz 
Columna: Columma_t; 


begin 
for Fila:= *A” to ”J”? do (%X Dibujar de fila en fila: X) 
begin 
(kx Primero pintar la fila de columma en columna: X) 
for Columma:= 1 to 10 do 
begin 
if T [Fila,Colummal = Nildea then write (? ”?); 
if T [Fila,Columma] = Tocado then write (*T”); 
14 T [Fila,ColummaJ = Hundido then write (*H”); 
if T [FlLa,Colummal] = Agua then write (*>A”) 
end; 
(k Tras acabar cada fila, bajar una línea *) 


Para presentar los tableros bastaría en- de datos sumamente adaptadas al pro- 
tonces con escribir: blema real que se desee resolver. Esto re- 
dunda en una mayor claridad de los pro- 
gramas y por tanto en una programación 
más eficiente y depurada con menor 
El PASCAL permite así definir estructuras cantidad de errores. 


MuestraTablero (Propio); 
MuestraTablero (Contrario); 


COBOL 


Introducción 


OBOL es la abreviatu- 
ra de «Common Busi- 
ness Oriented Lan- 
guage», que significa 
lenguaje orientado 
normalmente a los 
negocios. 

De su nombre se 
puede deducir que se trata de un len- 
guaje de programación dedicado princi- 
palmente al desarrollo de aplicaciones 
de gestión y, por tanto, es uno de los len- 
guajes más extendidos actualmente. 

Es el resultado de una reunión celebra- 
da en Estados Unidos en 1959, entre fa- 
bricantes de ordenadores y usuarios de 
los mismos. 

Un año después, aparece la primera 
versión del COBOL, llamada COBOL-60, 
que fue depurada progresivamente, 
dando lugar a sucesivas versiones: CO- 
BOL-61, COBOL-62, ... 

En 1968 se dan los primeros pasos para 
normalizar el lenguaje. 

Se ocupaba de ello el American Natio- 
nal Standard Institute. De esta forma sur- 
gió el ANSI COBOL. 

El COBOL resulta ser un lenguaje fácil- 
mente legible. Si los programas están 
bien estructurados, resulta fácil enten- 
derlos, ya que la sintaxis del lenguaje es 
muy similar a la gramática inglesa. 

Es un lenguaje orientado, como ya se 
ha dicho antes, a las aplicaciones de 
gestión por su estructura y diseño; en 
cambio, no es adecuado para realizar 
programas que requieran cálculos de ex- 
presiones matemáticas complejas. 

Los programas que aquí se presentan 
se han realizado con un IBM PC y COBOL 
MICROSOFT versión 2.00. 


OTROS LENGUAJES 


¡m Estructura 


Un programa COBOL tiene una estruc- 
tura rígida. Está formado por cuatro «divi- 
siones», que a su vez se subdividen en 
«Secciones». El nombre de estas divisio- 
nes es: 


— Identification division. 
— Environment division. 
— Data division. 

— Procedure division. 


En la primera (Identification), se da 
nombre al programa y se proporciona al 
compilador una información adicional: 
nombre del autor, fecha en la que se es- 
cribió, fecha de la última compilación, 
mensajes de seguridad y comentarios. 

De esta división sólo es obligatorio el 
nombre del programa. El resto de las 
cláusulas son opcionales. 

En la segunda división (Environment) se 
enumeran los ficheros (tanto en cintas, 
discos, como impresoras) que utiliza el 
programa, asignándolos a determinados 
periféricos y reseñando su organización 
y modo de acceso. 

En la Data division se describen los re- 
gistros de los ficheros que han sido de- 
clarados en la anterior división. 

El conjunto de sentencias que realmen- 
te se van a ejecutar se encuentran en la 
Procedure division. Se puede decir que 
ésta es la parte «ejecutable», siendo las 
demás de «declaración y definición». 


Normas de escritura 


A diferencia de la gran mayoría de len- 
guajes, un programa COBOL debe ajus- 


tarse a unas normas estrictas de escritu- 
ra. 

Para explicar estas reglas se va a utili- 
zar la hoja de codificación. 

Cada línea de la hoja de codificación 
se corresponde con una línea de la pan- 
talla. 

Las seis primeras columnas se utilizan 
para numerar las diferentes líneas del 
programa. Estas eran útiles cuando se 
trabajaba con fichas perforadas; actual- 
mente, al usar terminales, esas columnas 
se dejan en blanco. 

En la columna 7 pueden aparecer tres 
caracteres, cada uno de ellos tiene un 
significado diferente. 


— Espacio en blanco: Línea normal. 

— '": Línea de comentario. 

— “-: Indica la continuación de la lí- 
nea anterior. 


Las columnas comprendidas entre la 8 
y la 11 (ambas inclusive) se conocen 
como margen A. 

El margen B está formado por las co- 
lumnas que van desde la 12 hasta la 72. 

En los márgenes A y B deben comenzar 
determinadas claúsulas. La colocación 


IDENTIFICATION DIVISION. 
FROGRAM-ID. LISTADO. 
AUTHOR. E.P.H. 
DATE-WRITTEN. ABRIL-87. 
DATE-COMFILED. 


de cada una se irá determinando a me- 
dida que aparezcan en el texto. 

El nombre de las cuatro divisiones 
debe comenzar en el margen A. 

Además de las normas de situación, 
existen tambien normas de puntuación 
que pueden resumirse en los siguientes 
puntos: 


— Los caracteres coma, punto y pun- 
to y coma no pueden ir precedidos de 
espacio, pero deben ir seguidos al me- 
nos de uno. 

— El paréntesis izquierdo no puede ir 
seguido de un espacio. 

— El paréntesis derecho no puede ir 
precedido de un espacio. 

— El signo igual y los operadores arit- 
méticos deben estar precedidos y segui- 
dos por un blanco. 


A continuación se expone un progra- 
ma COBOL, que muestra la estructura del 
mismo, así como la colocación de las ins- 
trucciones en sus márgenes correspon- 
dientes y las distintas normas de puntua- 
ción. 

A medida que se avance en el texto se 
iiá entendiendo cada componente del 
programa. 


X Programa que obtiene un listado del personal a partir de un 
* fichero de empleados. 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. 


SELECT FERSONAL ASSIGN TO DISK 
ORGANIZATION LINE SEQUENTIAL. 


SELECT IMPRESO - ASSIGN TO PRINTER. 


DATA DIVISION. 


FILE “SECTION: 


FD PERSONAL 


LABEL RECORD 


STANDARD 


VALUE OF FILE-1D *FERSONAL.DAT”?. 


01 REG-FERSONAL. 

05 COD-EMPLEADO 

0S NOM-EMPLEADO. 
10 APELLIDO-1 
10 APELLIDO-2 
10 NOMBRE 

05 DIRECCION. 
10 CALLE 
10 COD-POSTAL 

05 TELEFONO 


Pi 95) 


PIES: 
PIC ALIS). 
PIC XtLZI 


PIE XL25) a 
PIC Xx(S). 
PICGSACIAT. 


so OTROS LENGUAJES 


FD IMPRESO LABEL RECORD OMITTED. 


01 LINEA PIC Xx(80). 
WORKING-STORAGE SECTION. 


01 FINAL-FICHERO PIC VALUE *N”. 

01 CABECERA1. 
OS FILLER PIC X(20) VALUE SPACES. 
OS FILLER PIC X(19) VALUE 


"LISTADO DE PERSONAL? . 
01 SUBRAYAR. 


OS FILLER PIC X1(20) VALUE SPACES. 
05 FILLER me RIC ACES) VALUE ALL *-*, 
01 CABECERAZ. 

,' 03 FILLER PIC X(5) VALUE SPACES. 
05. FILLER PIE) VALUE *CODIGO”. 
OS FILLER PIE -xt17) VALUE SPACES. 
OS FILLER PIC X(18) VALUE 

> APELLIDOS Y NOMBRE”.  . 

05 FILLER PIC X(19 VALUE SPACES. 
OS FILLER PIC X(8) VALUE 


* TELEFONO”, 
01 SUBRAYARZ. 


OS FILLER PIC Xx(5) VALUE SPACES. 
OS -FELLER PIC X(6) VALUE ALL *-*. 
053 FILLER PIC X(4) VALUE SPACES. 
OS FILLER PIC Xx(45) VALUE ALL ?*-=", 
OS FILLER PIC X(3) VALUE SPACES. 
OS FILLER PIC X(11) VALUE ALL *-*, 
01 DETALLE. . 
OS FILLER PIC X(6) VALUE SPACES. 
03 COD-EMPLEADO-SAL PIC 9(5). 
OS FILLER PIC X(4) VALUE SPACES. 
OS APELLIDO1-SAL PIC X(15). 
05 FILLER PIE" X VALUE SFACES. 
03 AFPELLIDO2-SAL PIC x(15). 
OS FILLER PIC XX VALUE a 
OS NOMBRE-SAL  , PIE X(12), 
05 FILLER PIC. X43) VALUE SPACES. 
OS TELEFONO-SAL PIC X(11). 
01 CONT-LINEAS PICAR VALUE Si. 
PROCEDURE DIVISION. 
PRINCIPAL. 


OPEN INFUT PERSONAL. 
OPEN QUTPUT IMPRESO. 
PERFORM LEER-PERSONAL. 
PERFORM ESCRIBIR UNTIL FINAL-FICHERO = *S”, 
CLOSE PERSONAL 
IMPRESO. 
STOP RUN. 


LEER-PERSONAL. ) 
READ PERSONAL AT END MOVE *S* TO FINAL-FICHERO. 


ESCRIBIR. 
MOVE APELLIDO-1 TO AFELLIDO1-SAL. 
MOVE APELLIDO-2 TO APELLIDO2-SAL. 


MOVE NOMBRE TO NOMBRE-SAL. 
MOVE COD-EMFLEADO TO COD-EMPLEADO-SAL. 
MOVE TELEFONO: TO TELEFONO-SAL. 


IF CONT-LINEAS > 50 

PERFORM ESCRIBIR-CABECERAS: 
WRITE LINEA FROM DETALLE AFTER 1. 
ADD 1 TO CONT-LINEAS. 
PERFORM LEER-PERSONAL. 


ESCRIBIR-CABECERAS. 
WRITE LINEA FROM CABECERA1 AFTER PAGE 
WRITE LINEA FROM SUBRAYAR1 AFTER 1 
WRITE LINEA FROM CABECERA2 AFTER 2 
WRITE LINEA FROM SUBRAYAR AFTER 1 
A MOVE 6 TO CONT-=-LINEAS. De 
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